home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Aminet / comm / ambos / FileChecker.lha / FLC / Rexx / AddToFileList.DOpus next >
Text File  |  1995-04-26  |  1KB  |  49 lines
  1. /*
  2.  $VER: DOpusToFilelist.rexx V0.1 © by Nils Görs
  3.  Add marked DOpus-Files to FileChecker.lst
  4.  */
  5.  
  6. Listname = "dh2:ambos/externe/FileChecker/dupe.lst"
  7. /* ^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^ */
  8. /*             I need your ListName here !!!              */
  9. /**********************************************************/
  10.  
  11. NL = '0a'x
  12.  
  13. PARSE ARG Filename
  14. OPTIONS RESULTS
  15.  
  16. String=Words(Filename)
  17.  
  18. IF ~OPEN(DName,ListName,Read) THEN
  19.  DO
  20.   say "Konnte" ListName "nicht öffnen!"
  21.   EXIT
  22.  END
  23.  
  24. Counter=1
  25.  DO WHILE Counter <= String
  26.    String2=Word(Filename,Counter)
  27.    Position=LASTPOS("/",String2) ; String2=DELSTR(String2,1,Position)
  28.    Position=LASTPOS(":",String2) ; String2=DELSTR(String2,1,Position)
  29.    CALL AddToList
  30.    Counter=Counter+1
  31.  END
  32. CALL CLOSE(DName)
  33. EXIT(0)
  34.  
  35. AddToList:
  36.  DO WHILE ~EOF(DName)
  37.   InString=READLN(DName)
  38.    IF INDEX(InString,String2) == 1 THEN
  39.      DO
  40.       say String2 "ist schon in der Liste vorhanden!"
  41.       CALL CLOSE(DName); CALL OPEN(DName,ListName,Read)
  42.       RETURN(5)
  43.      END
  44.  END
  45.  
  46. CALL WRITELN(DName,String2); CALL CLOSE(DName); CALL OPEN(DName,ListName,Read)
  47. say String2 "wurde in die Liste aufgenommen!"
  48. RETURN(0)
  49.